home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXENVELP.PRG < prev    next >
Text File  |  1991-09-01  |  1KB  |  34 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXENVELP.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. * PRINTS ENVELOPE WITH POSTNET BAR CODES WITH ZIP+4 CODE
  12. * THE BARCODE SHOULD BE PRINTED 1/4 INCH FROM THE BOTTOM OF THE ENVELOPE
  13. * IF YOU SHOULD EXPERIENCE A PROBLEM PRINTING THE POSTNET BARCODE, BE SURE
  14. * TO CHECK THE FUNCTION RETURN CODE.
  15.  
  16. * THIS WILL PRINT AN ENVELOPE FOR YOU TO REGISTER YOUR LIBRARY
  17.  
  18. txinit(_print_port)
  19. txreset()
  20. txpagesize("letter")
  21. txorient("L")
  22. txsetlpi(6)
  23.  
  24. txcolprint(25, 50, .t., "Texas Associated Software")
  25. txcolprint(26, 50, .f., "523 La Cresta Drive")
  26. txcolprint(27, 50, .f., "Red Oak, TX  75154-5109")
  27.  
  28. _zip_plus = "75154-5109"
  29. _ret = txpostnet(34, 70, _zip_plus)
  30.  
  31. txclear()
  32.  
  33. *: EOF: TXENVELP.PRG
  34.